10 REM     ***   B.A. UTIL.  ***
15 REM    *** BY JIM ABRONSKI ***
20 REM   *** REVISED  10/11/87 ***
25 POKE53280,0:POKE53281,0:CLR
30 DIMSL$(20),L1$(20),L2$(20),L3$(20),L4$(20),L5$(20)
35 DIMMDE$(20),MCM$(20),MRM$(20),PF$(20),LP$(20),LN$(20)
40 A=2000:IFPEEK(56)<64THENA=100
45 DIMI$(26),A$(A)
50 C1$="":C2$="[154]":AN=1:CR$=CHR$(13):Q$=CHR$(34)
55 LJ$="   [155]                                  [145]"
60 SL$(1)=" LABEL MANAGER "
65 SL$(2)=" ERASE PERSONAL DATA "
70 SL$(3)=" VALIDATE DISK "
75 SL$(4)=" USE DISK COPIER "
80 SL$(5)=" USE FILE COPIER "
85 SL$(6)=" MO.BILLS CONVERSION "
90 SL$(7)=" VIEW/PRINT DIRECTORY "
95 SL$(8)=" LOAD H.A.L. SYSTEM "
100 SL$(9)=" RETURN TO BANK ACCOUNTS "
105 SL$(10)=" EXIT TO BASIC "
110 PRINTCHR$(142):PRINT"[147][154]       B. A.   U T I L I T I E S       "
115 PRINT"[158]   CHOOSE WITH CURSOR KEYS:"
120 FORX=1TO10:PRINT"       ";C1$;SL$(X):NEXTX
125 PRINT"[158]   PRESS  RETURN [158][146] TO ENTER SELECTION.[145]"
130 PRINT"       ";C2$;SL$(1)
135 GETAN$:IFAN$=""THEN135
140 IFAN$=CHR$(13)THEN200:REM RETURN
145 IFAN$=CHR$(145)THEN160:REM CRSR UP
150 IFAN$=CHR$(17)THEN180:REM CRSR DOWN
155 GOTO135
160 PN=AN:AN=AN-1:IFAN=0THENAN=10
165 PRINT"[145]       ";C1$;SL$(PN)
170 IFPN=1THENPRINT"       ";C2$;SL$(AN):GOTO135
175 PRINT"[145][145][145]       ";C2$;SL$(AN):GOTO135
180 PN=AN:AN=AN+1:IFAN=11THENAN=1
185 PRINT"[145]       ";C1$;SL$(PN)
190 IFPN=10THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]       ";C2$;SL$(AN):GOTO135
195 PRINT"       ";C2$;SL$(AN):GOTO135
200 ON AN GOTO1025,780,205,475,480,530,275,485,490,995
205 PRINT"[147][154]     V A L I D A T E   A   D I S K     "
210 PRINT"[158]INSERT DISK TO BE VALIDATED."
215 PRINT"PRESS  RETURN [146][158] WHEN READY."
220 PRINT"[158]   (PRESS 'A[158]' TO ABORT)"
225 GETAN$:IFAN$=""THEN225
230 IFAN$="A"THEN25
235 IFAN$<>CHR$(13)THEN225
240 PRINT"VALIDATING....PLEASE WAIT."
245 OPEN15,8,15:PRINT#15,"V0":CLOSE15
250 PRINT"[158]VALIDATE ANOTHER DISK? (Y[158]/N[158])"
255 GETAN$:IFAN$=""THEN255
260 IFAN$="Y"THEN205
265 IFAN$<>"N"THEN255
270 GOTO25
275 PRINT"[147][154]      L I S T   D I R E C T O R Y [160][160][160][160] "
280 PRINT"[154]  VIEW [146][158] OR  PRINT  DIRECTORY?":AN=1
285 GETAN$:IFAN$=""THEN285
290 IFAN$=CHR$(13)THEN310
295 IFAN$=CHR$(29)THENPRINT"[145][158]  VIEW  OR [154] PRINT [146][158]":AN=2:GOTO285
300 IFAN$=CHR$(157)THENPRINT"[145] [154] VIEW [146][158] OR  PRINT ":AN=1:GOTO285
305 GOTO285
310 IFAN=1THENOPEN3,3:GOTO325
315 IFAN=2THENOPEN3,4:GOSUB450:GOTO325
320 GOTO285
325 GOSUB345:PRINT"[158]LIST ANOTHER DIRECTORY? (Y[158]/N[158])"
330 GETAN$:IFAN$=""THEN330
335 IFAN$<>"Y"THEN25
340 GOTO275
345 Z0$=CHR$(0)
350 OPEN8,8,0,"$0:*"
355 PRINT"  SPACE [146][158] TOGGLES PAUSE   SHIFT [146][158] TO END"
360 GET#8,A$,A$:IFA$=""THEN440
365 GET#8,A$,A$,A$,D$
370 BK=ASC(A$+Z0$)+256*ASC(D$+Z0$):BK$="     "+STR$(BK)+" "
375 IFST=0THENPRINT#3,BK$;
380 IFST<>0THEN440
385 GET#8,I$(1),I$(2),I$(3),I$(4),I$(5),I$(6),I$(7),I$(8),I$(9),I$(10)
390 GET#8,I$(11),I$(12),I$(13),I$(14),I$(15),I$(16),I$(17),I$(18),I$(19),I$(20)
395 GET#8,I$(21),I$(22),I$(23),I$(24),I$(25),I$(26)
400 PRINT#3,I$(1)I$(2)I$(3)I$(4)I$(5)I$(6)I$(7)I$(8)I$(9)I$(10);
405 PRINT#3,I$(11)I$(12)I$(13)I$(14)I$(15)I$(16)I$(17)I$(18)I$(19)I$(20);
410 PRINT#3,I$(21)I$(22)I$(23)I$(24)I$(25)I$(26);
415 IFI$(26)<>""THENGET#8,A$,I$(26):PRINT#3,A$I$(26);:GOTO415
420 IFPEEK(653)THENPRINT#3:GOTO440:REM SHIFT KEY DETECT
425 GETA$:IFA$=""THEN435
430 GETA$:IFA$=""THEN430
435 IFST=0THENPRINT#3:GOTO365
440 POKE198,0:PRINT#3:CLOSE3:CLOSE8
445 RETURN
450 CLOSE4,4:OPEN4,4
455 PRINT#4:IFNOTPEEK(144)AND128THENGOTO465
460 PRINT"   *** [158]PLEASE TURN THE PRINTER ON[160]***[158][145]":PP=1:GOTO455
465 IFPP=1THENPRINT"                                      [145]"
470 CLOSE4,4:OPEN4,4,7:RETURN
475 H$="DISK COPIER":GOTO505
480 H$="FILE COPIER":GOTO505
485 H$="H.A.L.":GOTO495
490 H$="BANK ACCOUNTS":GOTO505
495 PRINT"[147][158]   INSERT H.A.L. DISK, PRESS  RETURN [146]"
500 GETAN$:IFAN$<>CHR$(13)THEN500
505 G2$=",8":IFAN=4THENG2$=",8,1[158]"
506 POKE198,4
510 PRINT"[147][144]LOAD"CHR$(34)H$;
515 PRINT CHR$(34)G2$;
520 POKE631,13:POKE632,82:POKE633,117:POKE634,13
525 END
530 PRINT"[147] [154]      MONTHLY  BILLS  CONVERSION      "
535 PRINT"THIS OPTION CONVERTS YOUR MONTHLY BILLS"
540 PRINT"FILES FROM ANY OLDER VERSIONS OF THE"
545 PRINT"BANK ACCOUNTS PROGRAM YOU MAY BE USING"
550 PRINT"(THOSE USING NUMERICAL SELECTION MENUS)"
555 PRINT"TO THE FORMAT USED BY THE NEWER VERSIONS"
560 PRINT"(THOSE USING CURSOR KEY SELECTION MENUS)"
565 PRINT"ALLOWING RETENTION OF THE LAST AMOUNT"
570 PRINT"PAID, AND THE CHECK NUMBER USED."
575 PRINT"[158]INSERT THE DISK WITH THE FILES TO BE"
580 PRINT"CONVERTED, THEN PRESS  RETURN [146]"
585 PRINT" [158](PRESS 'A[158]' TO ABORT)[145][145]"
590 GETAN$:IFAN$=""THEN590
595 IFAN$="A"THEN25
600 IFAN$=CHR$(13)THEN610
605 GOTO590
610 OPEN15,8,15
615 A=1:BILL$="MO.BILLS 1":PRINT#15,"I0":GOTO645
620 INPUT#15,EN,EM$,ET,ES
625 IF EN=0 THEN RETURN
630 PRINT" ERROR ON DISK "
635 PRINTEN,EM$,ET,ES
640 CLOSE3:CLOSE4:CLOSE8:CLOSE9:CLOSE15:FORT=1TO9999:NEXTT:RUN
645 OPEN9,8,9,"0:"+BILL$+",S,R"
650 GOSUB620
655 INPUT#9,MB$
660 GOSUB620
665 M=VAL(MB$):FORX=1TOM
670 INPUT#9,MDE$(X),MCM$(X),MRM$(X),PF$(X)
675 GOSUB620
680 RS=ST
685 IFRS=64THEN700
690 IFRS<>0THENCLOSE9:PRINT"BAD DISK STATUS IS "RS
695 FORT=1TO9999:NEXTT:GOTO25
700 IFX<>2THEN715
705 IFMDE$(X)<>" UNPAID "ANDLEFT$(RIGHT$(MDE$(X),3),1)<>"."THEN715
710 X=M:NEXTX:CLOSE9:PRINT"THESE FILES ARE ALREADY CONVERTED.":GOTO695
715 NEXTX:CLOSE9
720 OPEN9,8,9,"@0:"+BILL$+",S,W"
725 GOSUB620
730 PRINT#9,MB$
735 GOSUB620
740 FORX=1TOM:LP$(X)=" UNPAID ":LN$(X)="NONE"
745 PRINT#9,MDE$(X);CR$;MCM$(X);CR$;MRM$(X);CR$;PF$(X);CR$;LP$(X);CR$;LN$(X)
750 GOSUB620
755 NEXTX:CLOSE9
760 IFP=1THENA=0:BILL$="MO.BILLS 2":GOSUB775:GOTO645
765 PRINT"YOUR MO.BILLS FILES HAVE BEEN CONVERTED."
770 CLOSE15:FORT=1TO2000:NEXTT:GOTO25
775 FORX=1TOM:MDE$(X)="":MCM$(X)="":MRM$(X)="":PF$(X)="":NEXTX:RETURN
780 PRINT"[147][154] E R A S E   P E R S O N A L   D A T A "
785 PRINT"THIS OPTION WILL ERASE ALL YOUR PERSONAL"
790 PRINT"DATA FROM A [154]COPY OF YOUR BANK ACCOUNTS  "
795 PRINT"DISK (SO YOU MAY GIVE IT TO A FRIEND)."
800 PRINT"[158]DO YOU HAVE A DISK TO ERASE? (Y[158]/N[158])"
805 GETAN$:IFAN$=""THEN805
810 IFAN$="Y"THEN825
815 IFAN$="N"THEN25
820 GOTO805
825 PRINT"[158]INSERT DISK TO BE ERASED, PRESS  RETURN [146]"
830 GETAN$:IFAN$<>CHR$(13)THEN830
835 PRINT"[147]     *** [158]ERASING PERSONAL DATA ***"
840 OPEN15,8,15,"I0":GOSUB620
845 OPEN8,8,8,"@0:ACCT.INFO.,S,W":GOSUB620
850 ED$(1)="INACTIVE"
855 FORX=1TO9
860 PRINT#8,ED$(1)
865 GOSUB620
870 NEXTX:PRINT#8:CLOSE8:RR=1
875 IFRR=1THENRR$="REGISTER 1":GOTO910
880 IFRR=2THENRR$="REGISTER 2":GOTO910
885 IFRR=3THENRR$="REGISTER 3":GOTO910
890 IFRR=4THENRR$="MO.BILLS 1":GOTO910
895 IFRR=5THENRR$="MO.BILLS 2":GOTO910
900 IFRR=6THEN1715
905 IFRR=7THEN940
910 OPEN8,8,8,"@0:"+RR$+",S,W":GOSUB620
915 ED$(1)="0"
920 FORX=1TO4
925 PRINT#8,ED$(1)
930 GOSUB620
935 NEXTX:PRINT#8:CLOSE8:RR=RR+1:GOTO875
940 OPEN8,8,8,"@0:MO.BILLS 3,S,W":GOSUB620
945 ED$(1)="MONEY"
950 PRINT#8,ED$(1)
955 GOSUB620
960 PRINT#8:CLOSE8
965 PRINT#15,"S0:ACCT. *"
970 PRINT#15,"I0:":CLOSE5:OPEN5,8,5,"#"
975 PRINT#15,"U1:5,0,18,0":PRINT#15,"B-P:5,144"
980 N$="B.A. SYSTEM     "
985 PRINT#15,"B-P:5,144":PRINT#5,N$;:PRINT#15,"U2:5,0,18,0":CLOSE5:CLOSE15
990 GOTO25
995 PRINT"[158]  LEAVE QUICKLOAD WEDGE IN PLACE? (Y[158]/N[158])[145][145]"
1000 GETAN$:IFAN$=""THEN1000
1005 IFAN$="N"THENSYS64738
1010 IFAN$<>"Y"THEN1000
1015 PRINT"[147]**** [158]COMMODORE 64 BASIC V2 ****"
1020 PRINT"[154]64K RAM SYSTEM  37895[154] BASIC BYTES FREE":NEW
1025 OPEN15,8,15:GOSUB1170
1030 PRINTCHR$(142):PRINT"[147][154]        L A B E L   M A N A G E R      ":AN=1
1035 BL$="                                       ":FORX=1TO6:NN$(X)="":NEXTX
1040 PRINT"[158]   CHOOSE WITH CURSOR KEYS:"
1045 FORX=1TOC:PRINT"       ";C1$;SL$(X):NEXTX
1050 PRINT"[158]   PRESS  RETURN [158][146] TO ENTER SELECTION.[145]"
1055 PRINT"       ";C2$;SL$(1)
1060 GETAN$:IFAN$=""THEN1060
1065 IFAN$=CHR$(13)THEN1145
1070 IFAN$=CHR$(145)THEN1085
1075 IFAN$=CHR$(17)THEN1120
1080 GOTO1060
1085 PN=AN:AN=AN-1:IFAN=0THENAN=C
1090 PRINT"[145]       ";C1$;SL$(PN)
1095 IFPN<>1THEN1115
1100 IFC=2THEN1110
1105 FORX=1TOC-2:PRINT"";:NEXTX
1110 PRINT"       ";C2$;SL$(AN):GOTO1060
1115 PRINT"[145][145]       ";C2$;SL$(AN):GOTO1060
1120 PN=AN:AN=AN+1:IFAN=C+1THENAN=1
1125 PRINT"[145]       ";C1$;SL$(PN)
1130 IFPN<>CTHEN1140
1135 FORX=1TOC:PRINT"[145]";:NEXTX:PRINT"       ";C2$;SL$(AN):GOTO1060
1140 PRINT"       ";C2$;SL$(AN):GOTO1060
1145 IFAN=1THEN1215
1150 IFAN<>CTHEN1165
1155 IFLS$="S"THENGOSUB1565
1160 GOTO25
1165 E=AN:GOTO1370
1170 PRINT"[147]         ***[158] LOADING LABELS ***"
1175 OPEN8,8,8,"0:LABELS,S,R":GOSUB620
1180 INPUT#8,NL$:GOSUB620
1185 NL=VAL(NL$):SL$(1)=" CREATE A NEW LABEL ":IFNL=0THEN1210
1190 G=2:IFNL=18THENG=1
1195 FORX=GTONL+1
1200 INPUT#8,SL$(X),L1$(X),L2$(X),L3$(X),L4$(X),L5$(X)
1205 GOSUB620:NEXTX
1210 CLOSE8:C=NL+2:SL$(C)=" RETURN TO UTILITIES ":RETURN
1215 IFNL<>17THEN1240
1220 PRINT"[147]YOU ARE AT THE MAXIMUM # OF LABELS."
1225 PRINT"YOU MUST NOW DELETE AN EXISTING LABEL"
1230 PRINT"BEFORE YOU CAN CREATE A NEW LABEL."
1235 FORT=1TO6000:NEXTT:GOTO1030
1240 PRINTCHR$(14):PRINT"[147][154]        [204][160][193][160][194][160][197][160][204][160][160][160][205][160][193][160][206][160][193][160][199][160][197][160][210]      ":RE$=""
1245 FORX=1TO5:PRINT"   [155]                                  [146]":NEXTX
1250 FORF=1TO5
1255 PRINT"[158][197][206][212][197][210][160][204][201][206][197] #[154]";F;"[158]:":PRINTBL$
1260 PRINT"   ^                                ^[145][145]"
1265 PRINT"  >";:GOSUB1815:NN$(F)=AN$
1270 PRINT"":FORX=1TOF:PRINT"";:NEXTX:PRINT
1275 PRINT"   [155]                                  [145]":PRINT"   [155]";NN$(F)
1280 IFCJ=1THENCJ=0:GOTO1290
1285 NEXTF
1290 PRINT"[158][196][207][160][217][207][213][160][215][201][211][200][160][212][207][160][205][193][203][197][160][193][206][217][160][195][200][193][206][199][197][211]? ([217][158]/[206][158])"
1295 GETAN$:IFAN$=""THEN1295
1300 IFAN$="Y"THEN1315
1305 IFAN$="N"THEN1340
1310 GOTO1295
1315 PRINT"[158][215][200][201][195][200][160][204][201][206][197] (1-5[158]) [196][207][160][217][207][213][160][215][193][206][212][160][212][207][160][195][200][193][206][199][197]?"
1320 GETAN$:IFAN$=""THEN1320
1325 IFVAL(AN$)>5THEN1320
1330 IFVAL(AN$)=0THEN1320
1335 F=VAL(AN$):PRINT"[145][145][145]"BL$:PRINT""BL$:CJ=1:GOTO1255
1340 PRINT"[158][197][206][212][197][210][160][212][201][212][204][197] [198][207][210][160][212][200][201][211][160][204][193][194][197][204]:":PRINT"   (USE LOWER CASE ONLY!)"
1345 INPUT" >[157][157]";AN$
1350 NN$(6)=" "+AN$+" ":LS$="S"
1355 SL$(C+1)=SL$(C):L1$(C+1)=L1$(C):L2$(C+1)=L2$(C):L3$(C+1)=L3$(C)
1360 L4$(C+1)=L4$(C):L5$(C+1)=L5$(C):SL$(C)=NN$(6):L1$(C)=NN$(1):L2$(C)=NN$(2)
1365 L3$(C)=NN$(3):L4$(C)=NN$(4):L5$(C)=NN$(5):C=C+1:NL=NL+1:GOTO1030
1370 PRINT"[147]":GOSUB450:PRINT"[147]":PRINTCHR$(14)
1375 PRINT"[147][154]        [204][160][193][160][194][160][197][160][204][160][160][160][205][160][193][160][206][160][193][160][199][160][197][160][210][160][160]    "
1380 PRINTLJ$:PRINT"   [155]";L1$(E)
1385 PRINTLJ$:PRINT"   [155]";L2$(E)
1390 PRINTLJ$:PRINT"   [155]";L3$(E)
1395 PRINTLJ$:PRINT"   [155]";L4$(E)
1400 PRINTLJ$:PRINT"   [155]";L5$(E)
1405 PRINT"[129]   [208][210][197][208][193][210][197][160][212][200][197] [204][193][194][197][204][211][160][201][206][160][217][207][213][210] [208][210][201][206][212][197][210]":AN=1
1410 PC$(1)=" [208][210][201][206][212][160][212][200][201][211][160][204][193][194][197][204] "
1415 PC$(2)=" [193][204][201][199][206][205][197][206][212] [208][193][212][212][197][210][206][160]"
1420 PC$(3)=" [211][208][197][195][201][198][201][195][160][209][213][193][206][212][201][212][217][160]"
1425 PC$(4)=" [196][197][204][197][212][197][160][212][200][201][211][160][204][193][194][197][204][160]"
1430 PC$(5)=" [210][197][212][213][210][206][160][212][207][160][205][197][206][213][160]"
1435 PRINT"[158]   [195][200][207][207][211][197][160][215][201][212][200][160][195][213][210][211][207][210][160][203][197][217][211]:"
1440 FORX=1TO5:PRINT"       ";C1$;PC$(X):NEXTX
1445 PRINT"[158]   [208][210][197][211][211]  [210][197][212][213][210][206] [158][146] [212][207][160][197][206][212][197][210][160][211][197][204][197][195][212][201][207][206].[145]"
1450 PRINT"       ";C2$;PC$(1)
1455 GETAN$:IFAN$=""THEN1455
1460 IFAN$=CHR$(13)THEN1520:REM RETURN
1465 IFAN$=CHR$(145)THEN1480:REM CRSR UP
1470 IFAN$=CHR$(17)THEN1500:REM CRSR DOWN
1475 GOTO1455
1480 PN=AN:AN=AN-1:IFAN=0THENAN=5
1485 PRINT"[145]       ";C1$;PC$(PN)
1490 IFPN=1THENPRINT"       ";C2$;PC$(AN):GOTO1455
1495 PRINT"[145][145][145]       ";C2$;PC$(AN):GOTO1455
1500 PN=AN:AN=AN+1:IFAN=6THENAN=1
1505 PRINT"[145]       ";C1$;PC$(PN)
1510 IFPN=5THENPRINT"[145][145][145][145][145][145][145][145][145]       ";C2$;PC$(AN):GOTO1455
1515 PRINT"       ";C2$;PC$(AN):GOTO1455
1520 IFAN=1THENGOSUB1625:GOTO1455
1525 IFAN=2THENGOSUB1655:GOTO1455
1530 IFAN=3THEN1545
1535 IFAN=4THEN1670
1540 IFAN=5THENCLOSE4:GOTO1030
1545 INPUT"[158]   [208][210][201][206][212][160][204][193][194][197][204][160][200][207][215][160][205][193][206][217][160][212][201][205][197][211]         [157][157][157][157][157][157][157][157]";QT
1550 IFQT<1THENPRINT"[145][145][145][145][145][145][145]":GOTO1545
1555 IFQT>99THENPRINT"[145][145][145][145][145][145][145]":GOTO1545
1560 FORX=1TOQT:GOSUB1625:NEXTX:GOTO1375
1565 PRINT"[147]         *** [158]SAVING LABELS ***"
1570 OPEN8,8,8,"@0:LABELS,S,W":GOSUB620
1575 NL$=STR$(NL)
1580 PRINT#8,NL$
1585 FORX=2TONL+1
1590 PRINT#8,Q$+SL$(X)+Q$
1595 PRINT#8,Q$+L1$(X)+Q$
1600 PRINT#8,Q$+L2$(X)+Q$
1605 PRINT#8,Q$+L3$(X)+Q$
1610 PRINT#8,Q$+L4$(X)+Q$
1615 PRINT#8,Q$+L5$(X)+Q$
1620 GOSUB620:NEXTX:CLOSE8:RETURN
1625 PRINT#4,L1$(E)
1630 PRINT#4,L2$(E)
1635 PRINT#4,L3$(E)
1640 PRINT#4,L4$(E)
1645 PRINT#4,L5$(E)
1650 PRINT#4:RETURN
1655 PRINT#4,"**********************************"
1660 FORX=1TO3:PRINT#4,"*                                *":NEXTX
1665 PRINT#4,"**********************************":RETURN
1670 PRINT"[158]   [208][210][207][195][197][197][196][160][215][201][212][200][160][196][197][204][197][212][197][201][206][199][158][160][204][193][194][197][204]? ([217][158]/[206][158]) [145][145]"
1675 GETAN$:IFAN$=""THEN1675
1680 IFAN$="N"THEN1375
1685 IFAN$="[206]"THEN1375
1690 IFAN$="[217]"THEN1700
1695 IFAN$<>"Y"THEN1675
1700 PRINT"[147]        *** [158][196][197][204][197][212][197][201][206][199][160][204][193][194][197][204] ***"
1705 FORX=ETOC:SL$(X)=SL$(X+1):L1$(X)=L1$(X+1):L2$(X)=L2$(X+1):L3$(X)=L3$(X+1)
1710 L4$(X)=L4$(X+1):L5$(X)=L5$(X+1):NEXTX:NL=NL-1:C=C-1:GOTO1030
1715 NL$="2":LL$(1)="":LL$(2)="   [202]IM [193]BRONSKI":LL$(3)="   6003 [215]. [194]URKE [211]T."
1720 XL$=" BANK ACCOUNTS AUTHOR ":YL$=" CHECK MANUFACTURER "
1725 LL$(4)="   [212]AMPA, [198]LORIDA 33634"
1730 LL$(5)="   [196][197][204][213][216][197] [195]OMPUTER [198]ORMS":LL$(6)="   1275 [210]ED [198]OX [210]OAD"
1735 LL$(7)="   [211]T. [208]AUL, [205]INNESOTA 55164"
1740 OPEN8,8,8,"@0:LABELS,S,W":GOSUB620
1745 PRINT#8,NL$:GOSUB620
1750 PRINT#8,Q$+XL$+Q$
1755 PRINT#8,Q$+LL$(1)+Q$
1760 PRINT#8,Q$+LL$(2)+Q$
1765 PRINT#8,Q$+LL$(3)+Q$
1770 PRINT#8,Q$+LL$(4)+Q$
1775 PRINT#8,Q$+LL$(1)+Q$
1780 PRINT#8,Q$+YL$+Q$
1785 PRINT#8,Q$+LL$(1)+Q$
1790 PRINT#8,Q$+LL$(5)+Q$
1795 PRINT#8,Q$+LL$(6)+Q$
1800 PRINT#8,Q$+LL$(7)+Q$
1805 PRINT#8,Q$+LL$(1)+Q$
1810 GOSUB620:PRINT#8:CLOSE8:RR=RR+1:GOTO875
1815 LL=34
1820 OPEN9,0:AN$="":BN$="":POKE204,0
1825 GET#9,BN$:IFBN$=""THEN1825
1830 IFBN$=CHR$(13)THENBN$="":CLOSE9:PRINT" ":POKE204,1:RETURN
1835 IFBN$=""ORBN$="[157]"ORBN$="[145]"ORBN$=""THENGOTO1825
1840 IFBN$=""ORBN$="[147]"THEN1825
1845 IFLEN(AN$)<LLTHEN1855
1850 PRINT" ":BN$=CHR$(13):GOTO1830
1855 IFAN$=""ANDBN$=CHR$(20)THEN1825
1860 IFBN$=CHR$(20)THENPRINT" [157][157] [157]";:AN$=LEFT$(AN$,LEN(AN$)-1):GOTO1825
1865 AN$=AN$+BN$:PRINTBN$;:GOTO1825